home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / VB42VB3.ZIP / WORKING.FRM (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-02-22  |  3.6 KB  |  124 lines
  1. VERSION 2.00
  2. Begin Form frmWorking 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Arbeite"
  6.    ClientHeight    =   1176
  7.    ClientLeft      =   2568
  8.    ClientTop       =   1992
  9.    ClientWidth     =   6924
  10.    Height          =   1596
  11.    Left            =   2520
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1176
  16.    ScaleWidth      =   6924
  17.    Top             =   1620
  18.    Width           =   7020
  19.    Begin SSFrame Frame1 
  20.       Caption         =   "Datei"
  21.       Height          =   1092
  22.       Left            =   60
  23.       TabIndex        =   0
  24.       Top             =   0
  25.       Width           =   6792
  26.       Begin PictureBox picbox 
  27.          Height          =   372
  28.          Left            =   120
  29.          ScaleHeight     =   348
  30.          ScaleWidth      =   6528
  31.          TabIndex        =   5
  32.          Top             =   600
  33.          Width           =   6552
  34.          Begin Label lblProz 
  35.             Alignment       =   2  'Center
  36.             BackStyle       =   0  'Transparent
  37.             Caption         =   "lblProz"
  38.             Height          =   252
  39.             Left            =   60
  40.             TabIndex        =   6
  41.             Top             =   60
  42.             Width           =   6432
  43.          End
  44.          Begin Shape sBar 
  45.             BackColor       =   &H000000FF&
  46.             BackStyle       =   1  'Opaque
  47.             BorderStyle     =   0  'Transparent
  48.             Height          =   312
  49.             Left            =   0
  50.             Top             =   0
  51.             Width           =   312
  52.          End
  53.       End
  54.       Begin CommandButton cmdAbort 
  55.          Caption         =   "stop"
  56.          Height          =   372
  57.          Left            =   5880
  58.          TabIndex        =   3
  59.          Top             =   180
  60.          Width           =   792
  61.       End
  62.       Begin Label lblLine 
  63.          BackStyle       =   0  'Transparent
  64.          Caption         =   "lblLine"
  65.          Height          =   252
  66.          Left            =   5040
  67.          TabIndex        =   4
  68.          Top             =   240
  69.          Width           =   792
  70.       End
  71.       Begin Label lblAnz 
  72.          BackStyle       =   0  'Transparent
  73.          Caption         =   "lblAnz"
  74.          Height          =   252
  75.          Left            =   4020
  76.          TabIndex        =   2
  77.          Top             =   240
  78.          Width           =   852
  79.       End
  80.       Begin Label lblDatei 
  81.          BackStyle       =   0  'Transparent
  82.          Caption         =   "lblDatei"
  83.          Height          =   252
  84.          Left            =   60
  85.          TabIndex        =   1
  86.          Top             =   240
  87.          Width           =   3912
  88.       End
  89.    End
  90. Option Explicit
  91. Dim iActivated%
  92. Sub cmdAbort_Click ()
  93.     Aborted = True
  94. End Sub
  95. Sub Form_Activate ()
  96.     If Not iActivated Then
  97.         iActivated = True
  98.         DoEvents
  99.         Select Case iDoWhat
  100.             Case 1
  101.                 Call ConvertProject(Me)
  102.             Case 2
  103.         End Select
  104.     End If
  105. End Sub
  106. Sub Form_Load ()
  107.     iActivated = False
  108.     lblDatei = ""
  109.     lblAnz = ""
  110.     lblLine = ""
  111.     Call CenterForm(Me)
  112. End Sub
  113. Sub lblProz_Change ()
  114.     On Error Resume Next
  115.     Dim r#
  116. ' expects Text like "9.45 %"
  117. ' Percent sign is removed, rest is checked
  118.     r# = Val(Left(lblProz, Len((lblProz)) - 1))
  119.     sBar.Top = 0
  120.     sBar.Left = 0
  121.     sBar.Height = picbox.Height
  122.     sBar.Width = picbox.Width * r# / 100
  123. End Sub
  124.